home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / filebox.exe / FILEBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-12-20  |  5.5 KB  |  113 lines
  1. FileBox
  2.     Open File
  3. Form1,
  4. Label2
  5. File &Name:
  6. Text1
  7. Label3
  8. &Files:
  9. Label1
  10. File1
  11. Label4
  12. &Directories:
  13. List1
  14. Drive1
  15. Command2
  16. Command1
  17. &Cancel
  18. LastChange
  19. CurDirectory$
  20. ASCII_ENTER4
  21. WM_USER
  22. LB_RESETCONTENT
  23. SendMessageT
  24. wParam
  25. lParam2
  26. GetFocus
  27. PutFocus
  28. Drive1_ChangeL
  29. Dir1G
  30. Patha
  31. Drive1
  32. Drive
  33. List1_Update
  34. Dir1_Change
  35. File1f
  36. Label1v
  37. Captions
  38. Command2_Click
  39. Command1_Click
  40. @    Form_LoadW
  41. RefreshFiles
  42. Text1
  43. SelStart!
  44.     SelLength+
  45. Text1_LostFocus
  46. Patternj
  47. Text1_KeyPress
  48. KeyAscii
  49. ClearListBox
  50. List1
  51. DirPos
  52.     ListCount
  53.     DiskStart
  54. FindLast
  55. needle
  56. haystack
  57. List1_DblClick
  58.     ListIndex
  59. Visible
  60. hWndOld
  61. List1_KeyPress
  62. FBox_Click
  63. DBox_Click
  64. NBox_Click
  65. Command3_Click-
  66. CommandN_GotFocusB
  67. CommandF_GotFocusx
  68. CommandD_GotFocus
  69. File1_Click
  70. File1_GotFocus
  71. Index
  72. List1_GotFocus
  73. FileBox
  74.  FILEBOX declarations and constantsd
  75. SetFocus
  76. Drive1_Change
  77. Dir1_Change
  78. Command2_Click
  79.  OK button pressed
  80. Command1_Click
  81.  Cancel button pressed
  82. Form_Load
  83. Text1_LostFocus
  84. RefreshFiles
  85.  If File1.ListIndex >= 0 Then
  86.   Path$ = Dir1.Path 
  87.   If Right$(Path$, 1) = "\" Then
  88.    Label1.Caption = Dir1.Path + File1.Filename
  89.  Elseb
  90.    Label1.Caption = Dir1.Path + "\" + File1.Filename
  91.   End If
  92.  Else 
  93.   Label1.Caption = " "
  94.  End If1
  95. Text1_KeyPress
  96. List1_Update
  97. FindLast
  98. List1_DblClick
  99.  Change to the parent directory
  100.  This is a drive spec
  101.  This is a subdirectory of the current directory
  102. ClearListBox
  103. List1_KeyPress
  104. FBox_Click
  105. DBox_Click
  106. NBox_Click
  107. Command3_Click
  108. CommandN_GotFocus
  109. CommandF_GotFocus
  110. CommandD_GotFocus
  111. File1_GotFocus
  112. List1_GotFocus
  113.